home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / OldSrc / CH2 / SRC / MMETA.BAS < prev    next >
Encoding:
BASIC Source File  |  1996-05-04  |  1.3 KB  |  20 lines
  1. Attribute VB_Name = "MMeta"
  2. Option Explicit
  3.  
  4. #If Win32 Then
  5.     Declare Function CreateMetaFile Lib "gdi32" Alias "CreateMetaFileA" (lpString As Any) As Long
  6.     Declare Function CloseMetaFile Lib "gdi32" (ByVal hMF As Long) As Long
  7.     Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As Any) As Long
  8.     Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
  9.     Declare Function PlayMetaFile Lib "gdi32" (ByVal hdc As Long, ByVal hMF As Long) As Long
  10.     Declare Function DeleteMetaFile Lib "gdi32" (ByVal hMF As Long) As Long
  11.     Declare Function GetMetaFile Lib "gdi32" Alias "GetMetaFileA" (ByVal lpFileName As String) As Long
  12. #Else
  13.     Declare Function CreateMetaFile Lib "GDI" (lpString As Any) As Integer
  14.     Declare Function CloseMetaFile Lib "GDI" (ByVal hMF As Integer) As Integer
  15.     Declare Function MoveTo Lib "GDI" (ByVal hdc As Integer, ByVal x As Integer, ByVal y As Integer) As Long
  16.     Declare Function LineTo Lib "GDI" (ByVal hdc As Integer, ByVal x As Integer, ByVal y As Integer) As Integer
  17.     Declare Function PlayMetaFile Lib "GDI" (ByVal hdc As Integer, ByVal hMF As Integer) As Integer
  18.     Declare Function DeleteMetaFile Lib "GDI" (ByVal hMF As Integer) As Integer
  19. #End If
  20.